' Test oh ak more SFunctions.txt for oh now B+ 2021-03-07
' along with testing regular "easy to code" SFunctions get more practice with 
' Set and Get our array substitute.

' oh try another way to assign with
day = date[]
clock = time[]
tag s[xmax,200];10;clock
tag s[xmax,200];30;day

sp1 = chr[32]
sp7 = cop[7,sp1]
test = bnd[sp7,B is Fat Left and Right!,sp7]
. test string: ";test;"
bltrim = ltr[test]
brtrim =  rtr[test]
btrim = trim[test]
bshout = cap[test]
bwhisper = low[test]
.
. ltrim B ";bltrim;"
.
. rtrim B ";brtrim;"
.
. B is looking trim ";btrim;"
.
. SHOUTING: ";bshout;"
.
. whisper: ";bwhisper;"
.
' Building an Astring with nCopy of embedded delimiter (space) to split it, brilliant! 
fatx10 = cop[10, fat!]
'trim the fat to remove leading space
fatx10 = trim[fatx10]
.
. fatx10 
x10 = split[fatx10,sp1]
. x10 split{fatx10,sp1} is:;
cnt = trim[1]
hyph = chr[45] 
[
	x = trim[get[x10,cnt]]
	. /   ;cnt;. ;x
	'OK for fun lets mod with concatenation (binding I am calling it) 
	x = bnd[trim[cnt],trim[hyph],trim[x]]
	'test modified x debug
	'. x
	' and back into the Astring changed
	' set is like a(i) = change ( I was doing change first )
	set x10;cnt;x
	'debug
	'. x10
	cnt = a[cnt, 1]
	jmp gt[cnt,10]
]
'another way to assign a string
c = trim[+]
. c is ;c

'checks on our new join delimiter
c1 = asc[c]
. c1 = asc{c} is ;c1
c2 = chr[c1]
. c2 = chr{c1} is ;c2

' test new rejoin for oh
j = rejoin[x10,c]
. j = rejoin{x10,c} is ; j
.
. Note: in the above demo's of code Square Brackets have been replaced by {} brackets.
.          In order to convert evaluations in print lines,
.          we sacrificed the ability to print Square Brackets.